home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / tech85fw.lbr / TIME.ARC / SUMTIME.FW < prev   
Unknown  |  1980-01-01  |  1.9 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Forgotten Worlds music (music/forgottenWorldsMusic) ext Unsupported
100% file data default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 03 00 e0 03 00 ff ed fb | 00 00 00 00 42 00 00 00 |........|....B...|
|00000010| 46 64 d6 00 02 00 5d 00 | 04 00 00 00 00 00 00 00 |Fd....].|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 03 00 a6 03 08 00 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 03 00 38 00 09 00 01 00 |........|..8.....|
|00000050| 02 00 04 00 0d 01 ff 01 | 00 ff ff 01 00 41 0d 00 |........|.....A..|
|00000060| 04 00 a8 03 02 00 07 00 | 01 00 04 00 46 00 0e 00 |........|....F...|
|00000070| 01 00 05 00 46 00 0f 00 | 00 00 01 00 4f 00 15 00 |....F...|....O...|
|00000080| 00 00 04 00 47 00 10 00 | 01 00 05 00 07 00 00 00 |....G...|........|
|00000090| 00 00 00 00 00 00 00 00 | ff 08 00 00 00 ff 00 00 |........|........|
|000000a0| 02 00 aa 03 18 82 00 00 | 00 01 00 00 02 00 07 00 |........|........|
|000000b0| 53 75 6d 74 69 6d 65 00 | ff ff ff ff ff ff ff ff |Sumtime.|........|
|000000c0| 6e 00 c8 03 18 82 00 00 | 00 01 00 00 02 00 3f 06 |n.......|......?.|
|000000d0| 3b 20 46 75 6e 63 74 69 | 6f 6e 20 53 75 6d 74 69 |; Functi|on Sumti|
|000000e0| 6d 65 2e ff 01 00 ff 3b | 20 49 6e 70 75 74 20 50 |me.....;| Input P|
|000000f0| 61 72 61 6d 65 74 65 72 | 73 3a ff 01 00 ff 20 ff |arameter|s:.... .|
|00000100| 01 00 ff 3b 72 65 66 20 | 20 20 20 20 20 20 74 68 |...;ref |      th|
|00000110| 65 20 63 65 6c 6c 20 74 | 6f 20 62 65 20 65 76 61 |e cell t|o be eva|
|00000120| 6c 75 61 74 65 64 20 ff | 01 00 ff 3b 68 20 20 20 |luated .|...;h   |
|00000130| 20 20 20 20 20 20 74 68 | 65 20 6e 75 6d 62 65 72 |      th|e number|
|00000140| 20 6f 66 20 68 6f 75 72 | 73 20 74 6f 20 62 65 20 | of hour|s to be |
|00000150| 61 64 64 65 64 20 74 6f | 20 72 65 66 ff 01 00 ff |added to| ref....|
|00000160| 3b 6d 20 20 20 20 20 20 | 20 20 20 74 68 65 20 6e |;m      |   the n|
|00000170| 75 6d 62 65 72 20 6f 66 | 20 6d 69 6e 75 74 65 73 |umber of| minutes|
|00000180| 20 74 6f 20 62 65 20 61 | 64 64 65 64 20 74 6f 20 | to be a|dded to |
|00000190| 72 65 66 ff 01 00 ff 3b | 73 20 20 20 20 20 20 20 |ref....;|s       |
|000001a0| 20 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |  the nu|mber of |
|000001b0| 73 65 63 6f 6e 64 73 20 | 74 6f 20 62 65 20 61 64 |seconds |to be ad|
|000001c0| 64 65 64 20 74 6f 20 72 | 65 66 ff 01 00 ff 3b 68 |ded to r|ef....;h|
|000001d0| 68 20 20 20 20 20 20 20 | 20 74 68 65 20 6e 75 6d |h       | the num|
|000001e0| 62 65 72 20 6f 66 20 68 | 75 6e 64 72 65 64 74 68 |ber of h|undredth|
|000001f0| 73 20 6f 66 20 61 20 73 | 65 63 6f 6e 64 20 74 6f |s of a s|econd to|
|00000200| 20 62 65 20 61 64 64 65 | 64 20 74 6f 20 ff 01 00 | be adde|d to ...|
|00000210| ff 3b 20 5b 4e 6f 74 65 | 3a 20 68 68 20 69 73 20 |.; [Note|: hh is |
|00000220| 61 6e 20 6f 70 74 69 6f | 6e 61 6c 20 70 61 72 61 |an optio|nal para|
|00000230| 6d 65 74 65 72 2e 5d ff | 01 00 ff 20 ff 01 00 ff |meter.].|... ....|
|00000240| 3b 20 44 65 63 6c 61 72 | 65 20 56 61 72 69 61 62 |; Declar|e Variab|
|00000250| 6c 65 73 2e ff 01 00 ff | ff 01 00 ff 40 6c 6f 63 |les.....|....@loc|
|00000260| 61 6c 28 68 72 2c 6d 69 | 6e 2c 73 65 63 2c 70 6f |al(hr,mi|n,sec,po|
|00000270| 73 29 2c 20 09 09 09 ff | 01 00 ff ff 01 00 ff 3b |s), ....|.......;|
|00000280| 20 54 65 73 74 20 66 6f | 72 20 70 6f 73 69 74 69 | Test fo|r positi|
|00000290| 6f 6e 20 6f 66 20 74 68 | 65 20 63 6f 6c 6f 6e 20 |on of th|e colon |
|000002a0| 74 6f 20 64 65 74 65 72 | 6d 69 6e 65 ff 01 00 ff |to deter|mine....|
|000002b0| 3b 20 69 66 20 68 6f 75 | 72 20 69 73 20 6f 6e 65 |; if hou|r is one|
|000002c0| 20 6f 72 20 74 77 6f 20 | 63 68 61 72 61 63 74 65 | or two |characte|
|000002d0| 72 73 20 6c 6f 6e 67 2e | ff 01 00 ff ff 01 00 ff |rs long.|........|
|000002e0| 40 69 66 28 40 6d 69 64 | 28 40 69 74 65 6d 31 2c |@if(@mid|(@item1,|
|000002f0| 32 2c 31 29 20 3d 20 22 | 3a 22 2c 20 ff 01 00 ff |2,1) = "|:", ....|
|00000300| 20 20 20 70 6f 73 20 3a | 3d 20 31 2c 20 70 6f 73 |   pos :|= 1, pos|
|00000310| 20 3a 3d 20 32 29 2c 09 | 09 09 09 ff 01 00 ff ff | := 2),.|........|
|00000320| 01 00 ff 3b 20 54 65 73 | 74 20 66 6f 72 20 6c 65 |...; Tes|t for le|
|00000330| 6e 67 74 68 20 6f 66 20 | 73 74 72 69 6e 67 20 74 |ngth of |string t|
|00000340| 6f 20 64 65 74 65 72 6d | 69 6e 65 ff 01 00 ff 3b |o determ|ine....;|
|00000350| 20 69 66 20 74 68 65 20 | 74 69 6d 65 20 69 73 20 | if the |time is |
|00000360| 69 6e 20 31 32 20 6f 72 | 20 32 34 2d 68 6f 75 72 |in 12 or| 24-hour|
|00000370| 20 66 6f 72 6d 61 74 2e | ff 01 00 ff ff 01 00 ff | format.|........|
|00000380| 40 69 66 28 40 6c 65 6e | 28 40 69 74 65 6d 31 29 |@if(@len|(@item1)|
|00000390| 20 3e 20 35 2c ff 01 00 | ff ff 01 00 ff 3b 20 54 | > 5,...|.....; T|
|000003a0| 65 73 74 20 66 6f 72 20 | 22 50 4d 22 20 41 4e 44 |est for |"PM" AND|
|000003b0| 20 6f 74 68 65 72 20 74 | 68 61 6e 20 22 31 32 3a | other t|han "12:|
|000003c0| 78 78 22 20 69 6e 20 65 | 61 72 6c 69 65 72 20 74 |xx" in e|arlier t|
|000003d0| 69 6d 65 2e ff 01 00 ff | ff 01 00 ff 20 20 40 69 |ime.....|....  @i|
|000003e0| 66 28 40 61 6e 64 28 40 | 6d 69 64 28 40 69 74 65 |f(@and(@|mid(@ite|
|000003f0| 6d 31 2c 70 6f 73 20 2b | 20 35 2c 32 29 20 3d 20 |m1,pos +| 5,2) = |
|00000400| 22 50 4d 22 2c ff 01 00 | ff 20 20 20 20 20 20 20 |"PM",...|.       |
|00000410| 20 20 20 20 40 6d 69 64 | 28 40 69 74 65 6d 31 2c |    @mid|(@item1,|
|00000420| 31 2c 70 6f 73 29 20 3c | 3e 20 22 31 32 22 29 2c |1,pos) <|> "12"),|
|00000430| ff 01 00 ff ff 01 00 ff | 3b 20 49 66 20 54 52 55 |........|; If TRU|
|00000440| 45 2c 20 68 72 32 20 3d | 20 65 61 72 6c 79 20 74 |E, hr2 =| early t|
|00000450| 69 6d 65 20 68 6f 75 72 | 20 2b 20 31 32 ff 01 00 |ime hour| + 12...|
|00000460| ff 3b 20 28 74 6f 20 61 | 63 63 6f 6d 6d 6f 64 61 |.; (to a|ccommoda|
|00000470| 74 65 20 74 68 65 20 32 | 34 2d 68 6f 75 72 20 63 |te the 2|4-hour c|
|00000480| 6c 6f 63 6b 29 2c ff 01 | 00 ff ff 01 00 ff 20 20 |lock),..|......  |
|00000490| 20 20 20 20 68 72 20 3a | 3d 20 40 76 61 6c 75 65 |    hr :|= @value|
|000004a0| 28 40 6d 69 64 28 40 69 | 74 65 6d 31 2c 31 2c 70 |(@mid(@i|tem1,1,p|
|000004b0| 6f 73 29 29 20 2b 20 31 | 32 2c 20 ff 01 00 ff ff |os)) + 1|2, .....|
|000004c0| 01 00 ff ff 01 00 ff 3b | 20 69 66 20 46 41 4c 53 |.......;| if FALS|
|000004d0| 45 2c 20 74 65 73 74 20 | 66 6f 72 20 22 31 32 3a |E, test |for "12:|
|000004e0| 78 78 22 20 41 4e 44 20 | 6f 74 68 65 72 20 74 68 |xx" AND |other th|
|000004f0| 61 6e 20 22 50 4d 22 2c | ff 01 00 ff ff 01 00 ff |an "PM",|........|
|00000500| 20 20 20 20 20 20 40 69 | 66 28 40 61 6e 64 28 40 |      @i|f(@and(@|
|00000510| 6d 69 64 28 40 69 74 65 | 6d 31 2c 31 2c 70 6f 73 |mid(@ite|m1,1,pos|
|00000520| 29 20 3d 20 22 31 32 22 | 2c ff 01 00 ff 20 20 20 |) = "12"|,....   |
|00000530| 20 20 20 20 20 20 20 20 | 20 20 20 20 40 6d 69 64 |        |    @mid|
|00000540| 28 40 69 74 65 6d 31 2c | 70 6f 73 20 2b 20 35 2c |(@item1,|pos + 5,|
|00000550| 32 29 20 3c 3e 20 22 50 | 4d 22 29 2c ff 01 00 ff |2) <> "P|M"),....|
|00000560| ff 01 00 ff 3b 20 69 66 | 20 74 68 69 73 20 69 73 |....; if| this is|
|00000570| 20 54 52 55 45 2c 20 28 | 69 74 20 69 73 20 31 32 | TRUE, (|it is 12|
|00000580| 3a 78 78 20 41 4d 2c 20 | 6d 69 64 6e 69 67 68 74 |:xx AM, |midnight|
|00000590| 20 2b 20 78 78 29 2c ff | 01 00 ff 3b 20 74 68 65 | + xx),.|...; the|
|000005a0| 6e 20 68 72 32 20 3d 20 | 30 2c ff 01 00 ff ff 01 |n hr2 = |0,......|
|000005b0| 00 ff 20 20 20 20 20 20 | 20 20 20 68 72 20 3a 3d |..      |   hr :=|
|000005c0| 20 30 2c ff 01 00 ff ff | 01 00 ff 3b 20 6f 74 68 | 0,.....|...; oth|
|000005d0| 65 72 77 69 73 65 2c 20 | 6b 65 65 70 20 64 69 73 |erwise, |keep dis|
|000005e0| 70 6c 61 79 65 64 20 68 | 6f 75 72 2e ff 01 00 ff |played h|our.....|
|000005f0| ff 01 00 ff 20 20 20 20 | 20 20 20 20 20 68 72 20 |....    |     hr |
|00000600| 3a 3d 20 40 76 61 6c 75 | 65 28 40 6d 69 64 28 40 |:= @valu|e(@mid(@|
|00000610| 69 74 65 6d 31 2c 31 2c | 70 6f 73 29 29 ff 01 00 |item1,1,|pos))...|
|00000620| ff 20 20 20 20 20 20 29 | ff 01 00 ff 20 20 29 2c |.      )|....  ),|
|00000630| ff 01 00 ff 20 68 72 20 | 3a 3d 20 40 76 61 6c 75 |.... hr |:= @valu|
|00000640| 65 28 40 6d 69 64 28 40 | 69 74 65 6d 31 2c 31 2c |e(@mid(@|item1,1,|
|00000650| 70 6f 73 29 29 ff 01 00 | ff 29 2c ff 01 00 ff ff |pos))...|.),.....|
|00000660| 01 00 ff 3b 20 41 64 64 | 20 40 69 74 65 6d 32 20 |...; Add| @item2 |
|00000670| 74 6f 20 76 61 72 69 61 | 62 6c 65 20 68 72 2e ff |to varia|ble hr..|
|00000680| 01 00 ff ff 01 00 ff 68 | 72 20 3a 3d 20 68 72 20 |.......h|r := hr |
|00000690| 2b 20 40 69 74 65 6d 32 | 2c ff 01 00 ff ff 01 00 |+ @item2|,.......|
|000006a0| ff 3b 20 41 64 64 20 40 | 69 74 65 6d 33 20 74 6f |.; Add @|item3 to|
|000006b0| 20 76 61 72 69 61 62 6c | 65 20 6d 69 6e 2e ff 01 | variabl|e min...|
|000006c0| 00 ff ff 01 00 ff 6d 69 | 6e 20 3a 3d 20 40 76 61 |......mi|n := @va|
|000006d0| 6c 75 65 28 40 6d 69 64 | 28 40 69 74 65 6d 31 2c |lue(@mid|(@item1,|
|000006e0| 70 6f 73 20 2b 20 32 2c | 32 29 29 20 2b 20 40 69 |pos + 2,|2)) + @i|
|000006f0| 74 65 6d 33 2c 20 ff 01 | 00 ff ff 01 00 ff 3b 20 |tem3, ..|......; |
|00000700| 41 64 64 20 40 69 74 65 | 6d 34 20 74 6f 20 76 61 |Add @ite|m4 to va|
|00000710| 72 69 61 62 6c 65 20 73 | 65 63 2e ff 01 00 ff ff |riable s|ec......|
|00000720| 01 00 ff 73 65 63 20 3a | 3d 20 40 76 61 6c 75 65 |...sec :|= @value|
|00000730| 28 40 6d 69 64 28 40 69 | 74 65 6d 31 2c 70 6f 73 |(@mid(@i|tem1,pos|
|00000740| 20 2b 20 32 2c 32 29 29 | 20 2b 20 40 69 74 65 6d | + 2,2))| + @item|
|00000750| 34 2c ff 01 00 ff ff 01 | 00 ff 3b 20 52 65 74 75 |4,......|..; Retu|
|00000760| 72 6e 20 66 69 6e 61 6c | 20 72 65 73 75 6c 74 2e |rn final| result.|
|00000770| ff 01 00 ff ff 01 00 ff | 40 74 69 6d 65 31 28 40 |........|@time1(@|
|00000780| 74 69 6d 65 28 68 72 2c | 6d 69 6e 2c 73 65 63 29 |time(hr,|min,sec)|
|00000790| 29 ff 01 00 ff ff 01 00 | ff ff 01 00 41 00 ff ff |).......|....A...|
+--------+-------------------------+-------------------------+--------+--------+